home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 7
/
FM Towns Free Software Collection 7.iso
/
data
/
dora
/
dorawrit.plp
< prev
next >
Wrap
Text File
|
1993-11-30
|
1KB
|
40 lines
/* DENGONファイル編集 */
%EDIT {[flag]
var memono [1];
%update{CloseAllMemo;mwrite(UP2|{\DENGO},memono);
mopen(memono);mclose(3);im({No})};
%cancel {CloseAllMemo;mopen(memono);mclose(3);footnote({});im({No})};
%MEMONO @mlast;memono:=MEMONO+1;
case (memono>0,{Yes},{CloseAllMemo;madd(memono,{\n});mclear(memono);
mopen(memono,0,21,639,459,{w});
loop ({footnote({登録取消},{b});
waitx();
case (@xtype,
101,update, 201,update,
102,cancel, 202,cancel,
,{im({Yes})}
)})})};
/*『最後の一言』作成 */
%LAST{ %LASTset{
case(@filechk(UP2|{\SAIGO}),
{Yes},{delfile(UP2|{\SAIGO});write(UP2|{\SAIGO},sai)},
{No},{write(UP2|{\SAIGO},sai)})};
footnote({注意;この機能はKMF版 RTBBS-NETのみ有効です});
%a @plane( {c最後の一言へのコメントをして下さい\n}|
{tコメント/xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx\n}|
{s / 登録 / 取消 \n},
);
%sai @head(@getline(a,1,1),{\n});%ok @head(@getline(a,2,1),{\n});
case (ok==1,{Yes},
{footnote({最後の一言へのコメントを作成します});
LASTset})};
loop ({ SNDMSG ({erande_f.snd});footnote({処理を選択してください});
select ({処理を選択してください },
Wtime4*10,{im({Yes})},
{ 伝言板へのコメントを書く },
{EDIT(0);im({Yes})},
{ 最後の一言へのコメントを書く(KMF版のみ },
{LAST;im({Yes})},
{ 終了する },
{im({No})})});